home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok40 / environment / dossupport.def next >
Text File  |  1993-11-04  |  876b  |  37 lines
  1. DEFINITION MODULE DosSupport;
  2.  
  3. (*---------------------------------------------------------------------------
  4.    :Program.    DosSupport
  5.    :Version.    1.5 --- Jan-88
  6.    :Contants.   Supporting Dos-Routines
  7.    :Author.     Markus Peuckert
  8.    :Address.    Schützenstr. 50, D-3550 Marburg, West-Germany,
  9.    :Copyright.  ShareWare
  10.    :Language.   Modula-2
  11.    :Translator. M2Amiga V3.3d
  12. ---------------------------------------------------------------------------*)
  13.  
  14. FROM Dos    IMPORT FileHandlePtr;
  15.  
  16.  
  17. TYPE      ID    = FileHandlePtr;
  18.          WinNam     = ARRAY [0..79] OF CHAR;
  19.  
  20.  
  21.  PROCEDURE OpenCon (win : WinNam) : ID;
  22.  
  23.  PROCEDURE CloseCon (k : ID);
  24.  
  25.  PROCEDURE CD (Dir : ARRAY OF CHAR) : BOOLEAN;
  26.  
  27.  PROCEDURE WriteS (k : ID; str : ARRAY OF CHAR);
  28.  
  29.  PROCEDURE WriteC (k : ID; ch : CHAR);
  30.  
  31.  PROCEDURE WriteLn (k : ID);
  32.  
  33.  PROCEDURE SetPenColor (k : ID; PenColour : CARDINAL);
  34.  
  35. END DosSupport.
  36.  
  37.